home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGNG_C / M2COMP.LZH / SYSTEM.DEF < prev    next >
Text File  |  1987-06-29  |  4KB  |  145 lines
  1. DEFINITION MODULE System;
  2.  
  3. (* (C) Copyright 1987 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     This module contains definitions that are SYSTEM DEPENDENT.
  7.     This version is for the IBM PC running DOS >= 2.0.
  8. *)
  9.  
  10. FROM SYSTEM IMPORT  WORD, ADDRESS;
  11.  
  12. VAR
  13.     (* FOR EXCLUSIVE USE OF M2LINK. DO NOT TOUCH! *)
  14.     Main, ProfStart, ProfEnd    :PROC;
  15.  
  16.     (* START OF EXPORTED STUFF: *)
  17.     DOSVersion  :CARDINAL;      (* DOS version * 100 *)
  18.     PSP         :CARDINAL;      (* paragraph pointer to DOS program prefix *)
  19.     MemTop      :CARDINAL;      (* end of memory (paragraph) *)
  20.     HeapBase    :CARDINAL;      (* start of heap (paragraph) *)
  21.     StackSeg    :CARDINAL;      (* stack segment (paragraph) *)
  22.     StackSize   :CARDINAL;      (* initial SP value          *)
  23.  
  24.     HeapTop     :CARDINAL;      (* end of heap   (paragraph) *)
  25.                                 (* updated by Storage        *)
  26.  
  27.     AX, BX, CX, DX, SI, DI :CARDINAL;
  28.     BP, DS, ES             :CARDINAL;
  29.     FLAGS                  :BITSET;
  30.  
  31. CONST
  32.     carryFlag   = 0;                (* carry flag IN FLAGS *)
  33.     zeroFlag    = 6;                (* zero flag IN FLAGS *)
  34.  
  35.  
  36. PROCEDURE GetArg( VAR arg: ARRAY OF CHAR; VAR length :CARDINAL );
  37. (*
  38.     returns the next argument in the command line
  39. *)
  40.  
  41. PROCEDURE GetEnv( var :ARRAY OF CHAR; VAR val :ARRAY OF CHAR );
  42. (*
  43.     loads val with the value of the environment variable var.
  44.     val will be loaded with the null string if var is not found.
  45. *)
  46.  
  47. PROCEDURE Trap( intno :CARDINAL );
  48. (*
  49.     loads the 8088 registers with the contents of AX..DI
  50.     and then generates the software interrupt specified.
  51.  
  52.     On return from the interrupt, the registers are saved
  53.     in AX..DI. The processor flags are stored in FLAGS.
  54. *)
  55.  
  56. PROCEDURE XTrap( intno :CARDINAL );
  57. (*
  58.     loads the 8088 registers with the contents of AX..ES
  59.     and then generates the software interrupt specified.
  60.  
  61.     On return from the interrupt, the registers are saved
  62.     in AX..ES. The processor flags are stored in FLAGS.
  63. *)
  64.  
  65. PROCEDURE Move( src :ADDRESS; dest :ADDRESS; size :CARDINAL );
  66. (*
  67.     Move size bytes from src to dest.
  68.  
  69.     IF FLAT(src) > FLAT(dest) THEN
  70.         move from low to high address
  71.     ELSE
  72.         move from high to low address
  73.     END
  74. *)
  75.  
  76. PROCEDURE TermProcedure( p :PROC );
  77. (*
  78.     installs a procedure to be executed when the program
  79.     terminates.
  80.  
  81.     Up to 20 termination procedures may be installed.
  82. *)
  83.  
  84. PROCEDURE Terminate( exitStatus :CARDINAL );
  85. (*
  86.     terminates execution, sets the DOS errorlevel to exitStatus
  87. *)
  88.  
  89. PROCEDURE GetVector( IntNum :CARDINAL; VAR ISR :ADDRESS );
  90. (*
  91.     loads in ISR the value of the interrupt vector IntNum
  92. *)
  93.  
  94. PROCEDURE SetVector( IntNum :CARDINAL; ISR :PROC );
  95. (*
  96.     installs ISR to be executed when interrupt IntNum occurs.
  97.     the address loaded in the interrupt vector is that of the
  98.     start of the procedure ISR, skipping the compiler generated
  99.     entry code.
  100.  
  101.     ISR must be compiled with stack checking disabled ($S-).
  102. *)
  103.  
  104. PROCEDURE ResetVector( IntNum :CARDINAL; ISR :ADDRESS );
  105. (*
  106.     loads the interrupt vector IntNum with the value in ISR
  107. *)
  108.  
  109.  
  110. TYPE
  111.     ErrorProc   = PROCEDURE( CARDINAL, ADDRESS );
  112. (*
  113.     A user error handling procedure is passed, in case of a runtime
  114.     error, the runtime error number and the address of the error
  115.     location.
  116.  
  117.     For a list of current runtime error numbers, please consult the
  118.     system's documentation.
  119.  
  120.     The error address can be related to an address in the MAP file
  121.     produced by DBG2MAP by adjusting the segment part thus:
  122.  
  123.         a.SEG := a.SEG - (PSP + 10H);
  124.  
  125.     If the user error handling procedure returns, default error
  126.     processing will take place and the program is terminated.
  127.  
  128. *)
  129.  
  130. PROCEDURE InstallRTErrorHandler( errorProc :ErrorProc );
  131. (*
  132.     installs errorProc to be invoked if a runtime error is
  133.     detected.
  134.  
  135.     Up to 10 error procedures may be installed, but only the last
  136.     one installed will be invoked in case of a runtime error.
  137. *)
  138.  
  139. PROCEDURE UninstallRTErrorHandler;
  140. (*
  141.     uninstalls the errorProc installed last.
  142. *)
  143.  
  144.  
  145. END System.